home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / FIGII-8.OBJ < prev    next >
Text File  |  1990-01-25  |  640b  |  20 lines
  1. 1001     400011 Read N, X into 11, 12
  2. 1002     001501 Load A with a 1
  3. 1003     030013 Store F at 13
  4. 1004     000011 Load N into A
  5. 1005     031502 Store at K
  6. 1006     241017 Jump to stop instruction
  7. 1007     251015 Jump to print
  8. 1008     000013 Load F
  9. 1009     150012 Multiply by X
  10. 1010     030013 Store at F
  11. 1011     001502 Load K
  12. 1012     021501 Subtract 1
  13. 1013     031502 Store at K
  14. 1014     261006 Go back to start of loop
  15. 1015     410011 Print N, X, F
  16. 1016     261001 Jump to beginning of program
  17. 1017     500000 Stop the program
  18. 1501          1 Constant 1
  19. 9999     001001 End of code
  20.